home *** CD-ROM | disk | FTP | other *** search
/ MacHome 2001 May / MacHome CD (May 2001).iso / mac / Stuff / Software / Home / GEDitCOM 2.9.3 / GEDitCOM / GEDitCOM.rsrc / GeDF_7774_CHIL Printing < prev    next >
Encoding:
Text File  |  2000-12-09  |  514 b   |  49 lines
  1. style label
  2. tabwidth 2
  3. get *valu.SEX
  4. if M
  5.   text Son:
  6. elseif F
  7.   text Daughter:
  8. else
  9.   text Child:
  10. endif
  11.  
  12. hskip 5
  13. style static w=-1
  14. get *valu.NAME
  15. ifnotempty
  16.   text *it
  17. else
  18.   text <unknown>
  19. endif
  20.  
  21. newline
  22. style label j=right tw=2
  23. text Birth:
  24.  
  25. hskip 5
  26. style static w=-1
  27. text *valu.BIRT.DATE
  28. get *valu.BIRT.PLAC
  29. ifnotempty
  30.   text ", "
  31.   text *it
  32. endif
  33.  
  34. newline
  35. style label j=right tw=2
  36. text Death:
  37.  
  38. hskip 5
  39. style static w=-1
  40. text *valu.DEAT.DATE
  41. get *valu.DEAT.PLAC
  42. ifnotempty
  43.   text ", "
  44.   text *it
  45. endif
  46.  
  47. hrule
  48.